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# ! /usr/ local/bin/perl 

# COPYRIGHT (c) 1998 Bell Communications Research Inc . , 

# All Rights Reserved. 
# 

# PROPRIETARY - BELLCORE AND AUTHORIZED CLIENTS ONLY. 
* 

# This document contains proprietary information that shall 

# be distributed or routed only within Bell Communications 

# Research (Bellcore) , and its authorized clients, except 

# with written permission of Bellcore. 
# 

# gids classify, pl,v i.l 1999/05/05 13:20=39 rmartija Exp $ 
# 

undef ; 

require 1 ge topts . pi 1 ; 



$USAGE = "Usage: " . $0 . " [-D] -p path -d file -t type -h file\n\n n . 
"Options :\n" - 

" -D debug mode\n" . 

11 -p path output directory\n" . 

" -d file name of domains file\n w . 

" -t type domain type ( 1=US only, 2=Non-US only, 3=Global) \n" 

" -h file name of hosts file\n\n w . 

'•Example :\n» . 

" $0 -p ../data/local -d alldomains.lcl -t 1 -h dat.txt:\n" . 

ii $o -d -p ../data/national -d alldomains.nat -t 2 -h dat.txt\n ,f . 

" $d -p . ./'data/nonius' -d alldomains.nus -t 3 -h dat.txt\n\n* r ; 



— - - - 

#- 

sub prompt { 

my( $msg, $choices, $default, $nocase ) = 

my( $reply ); 

print STDERR $msg ; 

print STDOUT * (Schoice3>" if ( $choices ) 

print STDOUT M ? 

print STDOUT «ISde£ault] " if{ ^default ); 

$reply = <STDIN>; 
chop ( $reply ) ; 

($reply tr/a-z/A-Z/) if ( $nocase ); 

($reply = $default) if( length ($ reply) == 0 && $default ); 
recurn $reply; 

} 



# 

#-- — - 

sub overwrite { 

my ( $f ile ) = @_; 
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return l iff ! {-e $file || -d $file) ); 

my( $msg ) = H $file exists. Overwrite"; 

return 1 if( Sproropt ($msg, «Y/N», "Y", 1) eq "Y» ); 

return 0; 

} 

####################### main program ############################ 

$x = &Getopts< *d:h:p:t:D' ); 
die 11 $USAGE\n" unless ($x ne 1 »); 

die "ERROR; cannot open $opt - d\n" unless -r $opt_d; 
die "ERROR: cannot open $opt_h\n" unless -r $opt_h; 
die "ERROR: domain type not specif ied\n$USAGE\n n unless $opt_t; 

die "ERROR: invalid domain type ($opt_t) \n$USAGB\n" 
unless (int($opt_t) >= 1 int($opt_t) <=• 3) ; 

chop( $basket = "basename $opt_d K ) ; 
open* F, "< $opt_d" ) ; 
©domains = <P> / 

close { F ) ; 

unlink "$ op t_p/$bas kef 1 unless $opt_t == 3; 
foreach $domainName (©domains) { 
chop( $domainName ) ; 

$cmd = "grep \ • \\ . $domainName\$\ ■ $opt_h | cut -d\»A" -fl " 

if ( $opt_t == 3 ) { 

$cmd .= "> $opt_p/$domainName" 

} 

else { 

$cmd .= ">> $opt_jp/$basket" / 

} 

"$ctnd"; 

} 
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